﻿#!/usr/bin/perl -w#Copyright (c) 2012 The cwkshell Authors. All rights reserved. # Use of this source code is governed by a BSD-style license that can be #found in the LICENSE file. use File::Copy;opendir SRC_DIR,"../../build/Release/lib" or die " 无法打开源文件目录: $!";open NAME_FILE ,"> ../build/lib/NAMES"  or die("无法打开文件：$!");while(my $file_name = readdir SRC_DIR){		next unless $file_name =~ /\.(lib)$/;	print 'copy '.$file_name."\n";	copy ("../../build/Release/lib/$file_name","../build/lib/$file_name");	print NAME_FILE "'$file_name', \n";}close SRC_DIR;close NAME_FILE;